home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Utilities / Smartass / Install Smartass < prev    next >
Text File  |  1996-07-11  |  2KB  |  85 lines
  1. (if (< (/ (getversion) 65536) 37)
  2.     (abort "Smartass requires at least Kickstart 2.04 (v37)")
  3. )
  4.  
  5. (set destdir
  6.     (askdir
  7.         (prompt "Where do you want to install Smartass?  No new drawer will be created.")
  8.         (help @askdir-help)
  9.         (default "SYS:WBStartup")
  10.     )
  11. )
  12.  
  13. (set destdocdir
  14.     (askdir
  15.         (prompt "Where do you want to install the \"Smartass\" drawer that will contain the docs?")
  16.         (help @askdir-help)
  17.         (default "Work:")
  18.     )
  19. )
  20.  
  21. (set update
  22.     (askbool
  23.         (prompt "Do you already have a datafile from a previous Smartass release?")
  24.         (help @askbool-help)
  25.     )
  26. )
  27.  
  28. (if (= 1 update)
  29.     (set destcookiedir
  30.         (askdir
  31.             (prompt "Where did you install the \"Data\" drawer?")
  32.             (help @askdir-help)
  33.             (default "Work:Smartass/")
  34.         )
  35.     )
  36. )
  37.  
  38. (if (= 0 update)
  39.     (set destcookiedir destdocdir)
  40. )
  41.  
  42. (copyfiles
  43.     (prompt "Copying \"Smartass\" to " destdir)
  44.     (help @copyfiles-help)
  45.     (source "")
  46.     (dest destdir)
  47.     (pattern "Smartass")
  48.     (infos)
  49.     (files)
  50. )
  51.  
  52. (tooltype
  53.     (dest (tackon destdir "Smartass"))
  54.     (settooltype "SMARTASSFILE" (tackon destcookiedir "data/smartass.dat"))
  55.     (noposition)
  56. )
  57.  
  58. (copyfiles
  59.     (prompt "Copying \"Docs\" to " destdocdir)
  60.     (source "")
  61.     (dest (tackon destdocdir "Smartass"))
  62.     (pattern "Docs")
  63.     (infos)
  64. )
  65.  
  66. (copyfiles
  67.     (prompt "Copying \"Icons\" to " destdocdir)
  68.     (source "")
  69.     (dest (tackon destdocdir "Smartass"))
  70.     (pattern "Icons")
  71.     (infos)
  72. )
  73.  
  74. (if (= 0 update)
  75.     (copyfiles
  76.         (prompt "Copying \"smartass.dat\" to " destcookiedir)
  77.         (help @copyfiles-help)
  78.         (source "")
  79.         (dest (tackon destcookiedir "Smartass"))
  80.         (pattern "data")
  81.         (infos)
  82.     )
  83. )
  84.  
  85.